home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / DDSRV.ZIP / D&DTEST1.BAS < prev    next >
BASIC Source File  |  1992-08-09  |  2KB  |  43 lines
  1. Type Rect
  2.     left As Integer
  3.     top As Integer
  4.     right As Integer
  5.     BOTTOM As Integer
  6. End Type
  7.  
  8. Declare Function CreateWindow% Lib "User" (ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, ByVal x%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hWndParent%, ByVal hMenu%, ByVal hInstance%, ByVal lpParam&)
  9. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  10. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As Rect)
  11. Declare Function GetFocus Lib "User" () As Integer
  12. Declare Function SendDlgItemMessage Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  13. Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer
  14. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  15.  
  16. Declare Function SendMessage& Lib "User" (ByVal hWnd%, ByVal Msg%, ByVal wParam%, lParam As Any)
  17.  
  18. Global Const GWW_HINSTANCE = (-6)
  19.  
  20. Global Const LBS_MULTICOLUMN = &H200&
  21. Global Const LBS_MULTIPICK = &H50A0000B '(LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER Or LBS_MULTIPLESEL Or WS_CHILD Or WS_VISIBLE)
  22. Global Const LBS_EXTPICK = &H50A00803
  23. Global Const LBS_FILELIST = LBS_EXTPICK Or LBS_MULTICOLUMN
  24. Global Const WM_USER = &H400
  25.  
  26.  
  27. Global Const LB_DIR = (WM_USER + 14)
  28. Global Const LB_RESETCONTENT = (WM_USER + 5)
  29. Global Const LB_ADDSTRING = (WM_USER + 1)
  30. Global Const LB_GETCOUNT = (WM_USER + 12)
  31. Global Const LB_GETSELCOUNT = (WM_USER + 17)
  32. Global Const LB_GETSELITEMS = (WM_USER + 18)
  33. Global Const LB_GETTEXT = (WM_USER + 10)
  34.  
  35. Global Const SM_CYCAPTION = 4
  36.  
  37. Global Const SW_HIDE = 0
  38. Global Const SW_SHOW = 1
  39.  
  40. Global Const TRUE = -1
  41. Global Const FALSE = 0
  42.  
  43.